home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPG10.ZIP / 403.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-08-16  |  1.4 KB  |  165 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     Byte     BYTE001
  27.     Byte     BYTE002
  28.     Byte     BYTE003
  29.     Byte     BYTE004
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     Gosub LABEL004
  34.     Gosub LABEL001
  35.     End
  36.     :LABEL001
  37.     Newline
  38.     Print ReadLine(STRING001, 1)
  39.     BYTE002 = GetY()
  40.     BYTE003 = GetX()
  41.     Print STRING003 + "  "
  42.     BYTE004 = GetX()
  43.     Print STRING004
  44.     BYTE001 = 1
  45.     Gosub LABEL003
  46.     BOOLEAN001 = 0
  47.     While (BOOLEAN001 == 0) Do
  48.         STRING002 = Asc(Inkey())
  49.         If (STRING002 == 13) Then
  50.             BOOLEAN001 = 1
  51.             Continue
  52.         Endif
  53.         If ((STRING002 == 76) || (STRING002 == 44)) Then
  54.             Dec BYTE001
  55.             If (BYTE001 < 1) BYTE001 = 2
  56.             Gosub LABEL003
  57.             Continue
  58.         Endif
  59.         If ((STRING002 == 82) || (STRING002 == 46)) Then
  60.             Inc BYTE001
  61.             If (BYTE001 > 2) BYTE001 = 1
  62.             Gosub LABEL003
  63.             Continue
  64.         Endif
  65.         If ((STRING002 == 89) || (STRING002 == 121)) Then
  66.             BYTE001 = 2
  67.             Gosub LABEL003
  68.             BOOLEAN001 = 1
  69.             Continue
  70.         Endif
  71.         If ((STRING002 == 78) || (STRING002 == 110)) Then
  72.             BYTE001 = 1
  73.             Gosub LABEL003
  74.             BOOLEAN001 = 1
  75.         Endif
  76.     EndWhile
  77.     Gosub LABEL002
  78.     Return
  79.     :LABEL002
  80.     If (BYTE001 == 1) Then
  81.         KbdStuff "N"
  82.     Else
  83.         KbdStuff "Y"
  84.     Endif
  85.     Return
  86.     :LABEL003
  87.     Select Case (BYTE001)
  88.         Case 2
  89.             Print Chr(13)
  90.             Forward BYTE003 - 1
  91.             Print STRING003
  92.             Print Chr(13)
  93.             Forward BYTE004 - 1
  94.             Print STRING006
  95.         Case 1
  96.             Print Chr(13)
  97.             Forward BYTE004 - 1
  98.             Print STRING004
  99.             Print Chr(13)
  100.             Forward BYTE003 - 1
  101.             Print STRING005
  102.     End Select
  103.     Return
  104.     :LABEL004
  105.     STRING001 = PPEPath() + "403.CFG"
  106.     STRING003 = ReadLine(STRING001, 2)
  107.     STRING004 = ReadLine(STRING001, 3)
  108.     STRING005 = ReadLine(STRING001, 4)
  109.     STRING006 = ReadLine(STRING001, 5)
  110.     Return
  111.  
  112. ;------------------------------------------------------------------------------
  113. ;
  114. ; Usage report (before postprocessing)
  115. ;
  116. ; ■ Statements used :
  117. ;
  118. ;    1       End
  119. ;    16      Goto 
  120. ;    18      Let 
  121. ;    11      Print 
  122. ;    11      If 
  123. ;    8       Gosub 
  124. ;    4       Return
  125. ;    1       Inc 
  126. ;    1       Dec 
  127. ;    1       Newline
  128. ;    2       KbdStuff 
  129. ;    4       Forward 
  130. ;
  131. ;
  132. ; ■ Functions used :
  133. ;
  134. ;    2       +
  135. ;    4       -
  136. ;    13      ==
  137. ;    1       <
  138. ;    1       >
  139. ;    9       !
  140. ;    4       ||
  141. ;    4       Chr()
  142. ;    1       Asc()
  143. ;    1       Inkey()
  144. ;    1       PPEPath()
  145. ;    5       ReadLine()
  146. ;    2       GetX()
  147. ;    1       GetY()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : No flag
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Postprocessing report
  156. ;
  157. ;    0       For/Next
  158. ;    1       While/EndWhile
  159. ;    6       If/Then or If/Then/Else
  160. ;    1       Select Case
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;                 AEGiS Corp - Break the routines, code against the machines!
  164. ;------------------------------------------------------------------------------
  165.